unit uInicio;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ToolWin, ComCtrls, Buttons, DB, Grids, DBGrids, DBCtrls,
  Mask, ExtCtrls, DateUtils, ActnList, Menus, TeEngine, Series, BubbleCh,
  TeeProcs, Chart, System.Actions;

type
  TSupport_F = class(TForm)
    ToolBar1: TToolBar;
    lblMensagem: TLabel;
    ToolBar3: TToolBar;
    Info_RazaoSocial: TLabel;
    tbMensagem: TToolBar;
    Label1: TLabel;
    SpeedButton1: TSpeedButton;
    SpeedButton2: TSpeedButton;
    SpeedButton3: TSpeedButton;
    SpeedButton4: TSpeedButton;
    SpeedButton5: TSpeedButton;
    ActionList1: TActionList;
    Tecnicos: TAction;
    Maquinas: TAction;
    Incidentes: TAction;
    Relatorios: TAction;
    Sair: TAction;
    SpeedButton6: TSpeedButton;
    ACertaCliente: TAction;
    Chart1: TChart;
    Series1: TBubbleSeries;
    procedure SairExecute(Sender: TObject);
    procedure TecnicosExecute(Sender: TObject);
    procedure MaquinasExecute(Sender: TObject);
    procedure ACertaClienteExecute(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Support_F: TSupport_F;

implementation

uses uChamadosZuma, gVars_u, uTecnicos, uFunctions, uMaquinas,
  uAcertaCliente, uLogin;

{$R *.dfm}

procedure TSupport_F.ACertaClienteExecute(Sender: TObject);
begin

  AcertaClientes_F := TAcertaClientes_F.Create(Self);
  AcertaClientes_F.ShowModal
end;

procedure TSupport_F.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
  Support_F := Nil;
  Login_F.Show;
end;

procedure TSupport_F.FormCreate(Sender: TObject);
begin
  StartDados;
end;

procedure TSupport_F.MaquinasExecute(Sender: TObject);
begin
  Maquinas_F := TMaquinas_F.Create(Self);
  Maquinas_F.ShowModal;
end;

procedure TSupport_F.SairExecute(Sender: TObject);
begin
  StopDados;
  Self.Close;
end;

procedure TSupport_F.TecnicosExecute(Sender: TObject);
begin
  Tecnicos_F := TTecnicos_F.Create(Self);
  Tecnicos_F.ShowModal
end;

end.
